(let* ((menubar (make-instance 'menubar))                                     ; 1
					; add some menus to menubar
       (file-menu (make-instance 'menu :master menubar :text "File"))         ; 2
       (example-menu (make-instance 'menu :master menubar :text "Example"))
       (reports-menu (make-instance 'menu :master menubar :text "Reports"))
       )
					; add command items to 'file'
  (make-instance 'menubutton :master file-menu :text "Load Template"                     ; 3
			     :command (lambda () (loadtemplatedialog)))
  (make-instance 'menubutton :master file-menu :text "Save Template"
			     :command (lambda () (insertdata_templates)))
			     
  (add-separator file-menu)                                                    ; 5
  (make-instance 'menubutton :master file-menu :text "Load Lot"
			     :command (lambda ()
					(loadlotdialog)))
  (make-instance 'menubutton :master file-menu :text "Save Lot"
			     :command (lambda ()
					(insertdata_lots)))
  (add-separator file-menu)    
  (make-instance 'menubutton :master file-menu :text "Quit" :underline 0       ; 6
			     :command (lambda () (uiop:quit)))
					; -- build 'example' menu
  (let* ((check-menu (make-instance 'menucheckbutton :master example-menu      ; 7
						     :text "Select"))
         (colours (make-instance 'menu :master example-menu                    ; 8
                                       :text "Colours"))
         (red-button (make-instance 'menuradiobutton :master colours           ; 9
						     :text "Red" :name :red :group :colours))
         (green-button (make-instance 'menuradiobutton :master colours
						       :text "Green" :name :green :group :colours))
         (blue-button (make-instance 'menuradiobutton :master colours
						      :text "Blue" :name :blue :group :colours)))
    (add-separator example-menu)
    (make-instance 'menubutton :master example-menu :text "Show"
			       :accelerator "Control+S"
			       :command (lambda ()
					  (format t "Values are: ~%Select: ~a~%Colours: ~a~%"
						  (value check-menu)
						  (value red-button)))))
  ;; Reports
  (let* 
    (add-separator example-menu)
    (make-instance 'menubutton :master reports-menu :text "Generate COA Report"
			       :accelerator "Control+O"
			       :command (lambda ()
					  (printout)))
    (make-instance 'menubutton :master reports-menu :text "Generate Daily Report"
			       :accelerator "Control+P"
			       :command (lambda ()
					  (printout))))
  
  )
